Shareware Grab Bag/Shareware Grab Bag.iso/001/qmodmous.arc/QMODEMPB.DEF

Text File | 1986-03-11 | 14.9 KB | 392 lines

;
;
;       ╔═══════════════════════════════════╗
;       ║    QMODEM Pop-Up Menus            ║
;       ║                                   ║
;       ║ Designed for use with Qmodem V2.0 ║
;       ║         Mark F. Lewis             ║
;       ║         06-MAR-86                 ║
;       ║                                   ║
;       ║-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-║
;       ║ This is the PCBOARD version       ║
;       ║         QMODEMPB.DEF              ║
;       ║ Compile with Microsoft's MAKEMENU ║
;       ║ To use, type:                     ║
;       ║      MENU QMODEMPB                ║
;       ║      QMODEM                       ║
;       ║      MENU OFF                     ║
;       ║  or place the above in a BAT file ║
;       ║                                   ║
;       ╚═══════════════════════════════════╝
;
;       Set up initial labels for mouse commands

        begin leftb,mousehlp,bothb,mousel,mouser,mouseu,moused,16,24

;       -------------------- Left Button ---------------------------

;       Start QModem if in init mode, else Main menu menu

leftb:  match 25,15,,"Qmodem",Keyspc,redlchk    ;Check for initing
redlchk: match 4,9,,"Re-Dial",dialmen,vchkl     ;check for redial
vchkl:   match 5,5,,"Filename",keyspc,vchkn    ;check for viewdir
vchkn:   match 2,6,,"View a file",keyspc,pcb1  :Check for viewdir
pcb1:    match 25,15,,"Main Board Command?",pcbmen,pcb2 ;Check for PCBoard
pcb2:    match 25,16,,"Main Board Command?",pcbmen,pcb3 ;Check for PCBoard
pcb3:    match 25,17,,"Main Board Command?",pcbmen,menu1 ;Check for PCBoard


;       --------------------- Both buttons ------------------------

;       Context-contingent cancel

bothb:  match 25,15,,"Qmodem",nothing,chkbth
chkbth: match 1,28,,"Command",return,chkpbookb
chkpbookb: match 1,12,,"Phone",keyx,keyesc        :check for Phone Book

;       -------------------- Mouse left -----------------------

mousel: match 1,3,,"Strip / Convert",left,nothing  ;check for xlate table

;       ------------------- Mouse right -----------------------

mouser: match 1,3,,"Strip / Convert",right,nothing  ;check for xlate table

;       --------------------- Mouse up -----------------------

mouseu: match 25,6,,"PgUp",Pgup,chkpbooku       ;check for scroll back
chkpbooku: match 1,12,,"Phone",Pgup,stripcku      :check for Phone Book
stripcku: match 1,3,,"Strip / Convert",Up,nothing  ;check for xlate table

;       ------------------- Mouse down -----------------------

moused: match 25,6,,"PgUp",PgDn,chkpbookd       ;check for scroll back
chkpbookd: match 1,12,,"Phone",PgDn,stripckd      ;check for Phone book
stripckd: match 1,3,,"Strip / Convert",down,nothing  ;check for xlate table

;       Initial menu displayed when left button pressed

menu1:  popup 1,24,bold
        text "╔═[ Command Menu 2.0 ]══════════════════════════════════╗"
        text "║                 --- Primary ---                       ║"
        text "║ Clear Screen                Redial Last Number        ║"
        text "║ Dial Phone                  DOS Shell                 ║"
        text "║ SCRIPT Execution            Disk Directory            ║"
        text "║ Hang-Up Modem               Exit Qmodem               ║"
        text "║ Change Baud Rates           Secondary Menu            ║"
        text "║-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-║"
        text "║ Download files              Toggles Menu              ║"
        text "║ Upload Files                Capture File Toggle       ║"
        text "║ Scroll Lost lines Back      Send modem BREAK Signal   ║"
        text "║ Add Linefeed Toggle         Printer echo Toggle       ║"
        text "║ Cancel Menu                                           ║"
        text "║                                                       ║"
        text "║    Select menu item with Right Button                 ║"
        text "║    Press Left button or Both Buttons to return        ║"
        text "╚═══════════════════════════════════════════════════════╝"
        select 3,3,23,keyaltc
        select 4,3,23,keydial
        select 5,3,23,keyaltf
        select 6,3,23,keyalth
        select 7,3,23,keyaltp
;
        select 3,31,23,keyaltq
        select 4,31,23,setdos
        select 5,31,23,keyaltw
        select 6,31,23,exitact
        select 7,31,23,menu2
;
        select 9,3,23,pgdn
        select 10,3,23,pgup
        select 11,3,23,Up
        select 12,3,23,shfttab
        select 13,2,22
;
        select 9,31,23,menu3
        select 10,31,23,keycthm
        select 11,31,23,keyctnd
        select 12,31,23,keyctpt
        pend
;
setdos:  execute keyaltr,shellset
shellset:  assign shelb,mousehlp,bothb,mousel,mouser,mouseu,moused,16,24
shelb: popup 1,1,bold
        text "╔═[ DOS Shell ]════╗"
        text "║ Return to Qmodem ║"
        text "║   Cancel Menu    ║"
        text "╚══════════════════╝"
        select 2,2,18,retshell
        select 3,2,18
        pend
;
retshell: execute shellout,return,noshell
noshell:  assign leftb,mousehlp,bothb,mousel,mouser,mouseu,moused,16,24
;
menu2:  popup 1,24,bold
        text "╔═[ Command Menu 2.0 ]══════════════════════════════════╗"
        text "║                 -- Secondary --                       ║"
        text "║ Translate Table             Change Sub-Dirs           ║"
        text "║ Function Key Set            View a File               ║"
        text "║ Log Drive Change            Delete a File             ║"
        text "║                                                       ║"
        text "║                             Primary Menu              ║"
        text "║-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-║"
        text "║ Download files              Toggles Menu              ║"
        text "║ Upload Files                Capture File Toggle       ║"
        text "║ Scroll Lost lines Back      Send modem BREAK Signal   ║"
        text "║ Add Linefeed Toggle         Printer echo Toggle       ║"
        text "║ Cancel Menu                                           ║"
        text "║                                                       ║"
        text "║    Select menu item with Right Button                 ║"
        text "║    Press Left button or Both Buttons to return        ║"
        text "╚═══════════════════════════════════════════════════════╝"
        select 3,3,23,keyalta
        select 4,3,23,keyaltj
        select 5,3,23,keyaltl
;
        select 3,31,23,keyalto
        select 4,31,23,keyaltv
        select 5,31,23,keyalty
        select 7,31,23,menu1
;
        select 9,3,23,pgdn
        select 10,3,23,pgup
        select 11,3,23,Up
        select 12,3,23,shfttab
        select 13,2,22
;
        select 9,31,23,menu3
        select 10,31,23,keycthm
        select 11,31,23,keyctnd
        select 12,31,23,keyctpt
        pend

menu3:  popup 1,24,bold
        text "╔═[ Command Menu 2.0 ]══════════════════════════════════╗"
        text "║                 --- Toggles ---                       ║"
        text "║ Beeps and Bells             ANSI Music Mode           ║"
        text "║ Echo                        Split Screen Mode         ║"
        text "║ ANSI Graphics Mode          Screen Dump               ║"
        text "║ Program Info                Xon / Xoff                ║"
        text "║                             Secondary Menu            ║"
        text "║-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-║"
        text "║ Download files              Primary Menu              ║"
        text "║ Upload Files                Capture File Toggle       ║"
        text "║ Scroll Lost lines Back      Send modem BREAK Signal   ║"
        text "║ Add Linefeed Toggle         Printer echo Toggle       ║"
        text "║ Cancel Menu                                           ║"
        text "║                                                       ║"
        text "║    Select menu item with Right Button                 ║"
        text "║    Press Left button or Both Buttons to return        ║"
        text "╚═══════════════════════════════════════════════════════╝"
        select 3,3,23,keyaltb
        select 4,3,23,keyalte
        select 5,3,23,keyaltg
        select 6,3,23,keyalti
;
        select 3,31,23,keyaltm
        select 4,31,23,keyalts
        select 5,31,23,keyaltt
        select 6,31,23,keyaltz
        select 7,31,23,menu2
;
        select 9,3,23,pgdn
        select 10,3,23,pgup
        select 11,3,23,Up
        select 12,3,23,shfttab
        select 13,2,22
;
        select 9,31,23,menu1
        select 10,31,23,keycthm
        select 11,31,23,keyctnd
        select 12,31,23,keyctpt
        pend

exitact: execute keyaltx,exitmen

exitmen: popup 6,20,bold
        text "╔═[ Leave Qmodem ]════════════╗"
        text "║      Are you SURE?          ║"
        text "║                             ║"
        text "║         Yes                 ║"
        text "║         No                  ║"
        text "║  Exit with modem connected  ║"
        text "╚═════════════════════════════╝"
        select 4,3,27,Keyy
        select 5,3,27,Keyn
        select 6,3,27,keyx
        pend

dialmen: popup 12,8,bold
        text "╔═[ Re-Dial Action ]══╗"
        text "║     Cycle Call      ║"
        text "║     Delete Call     ║"
        text "║        Abort        ║"
        text "║     Cancel Menu     ║"
        text "╚═════════════════════╝"
        select 2,2,21,Keyc
        select 3,2,21,keyd
        select 4,2,21,keyesc
        select 5,2,21
        pend

PCBmen:  popup 1,1,bold
 text "╔═[ PC Board Main Menu ]═══════════════════════════════════════╗"
 text "║ Abandon Conference   Join a Conference   Read Messages       ║"
 text "║ Bulletin Listing     Kill a Message      Trans. Protocol     ║"
 text "║ Comment to SYSOP     Locate Files(Name)  Upload a File       ║"
 text "║ Download a File      Mode (Graphics)     View Settings       ║"
 text "║ Enter a Message      New Files(Date)     Write User Info     ║"
 text "║ File Directories     Operator Page       Xpert On/Off        ║"
 text "║ Goodbye (Hang-Up)    Page Length         Your Personal Mail  ║"
 text "║ Help Functions       Quick Msg Scan      Script Questionnaire║"
 text "║ Initial Welcome      Cancel Menu         Zippy DIR Scan      ║"
 text "║                      Qmodem Menu                             ║"
 text "║    Select menu item with Right Button                        ║"
 text "║    Press Left button or Both Buttons to return               ║"
 text "╚══════════════════════════════════════════════════════════════╝"
        select 2,2,20,keyar
        select 3,2,20,keybr
        select 4,2,20,keycr
        select 5,2,20,keydr
        select 6,2,20,keyer
        select 7,2,20,keyfr
        select 8,2,20,keygr
        select 9,2,20,keyhr
        select 10,2,20,keyir
;
        select 2,23,20,keyjr
        select 3,23,20,keykr
        select 4,23,20,keylr
        select 5,23,20,keymr
        select 6,23,20,keynr
        select 7,23,20,keyor
        select 8,23,20,keypr
        select 9,23,20,keyqr
        select 10,23
        select 11,23,20,menu1
;
        select 2,44,20,keyrr
        select 3,44,20,keytr
        select 4,44,20,keyur
        select 5,44,20,keyvr
        select 6,44,20,keywr
        select 7,44,20,keyxr
        select 8,44,20,keyyr
        select 9,44,20,keysr
        select 10,44,20,keyzr
        pend

keyar: execute keya,return
keybr: execute keyb,return
keycr: execute keyc,return
keydr: execute keyd,return
keyer: execute keye,return
keyfr: execute keyf,return
keygr: execute keyg,return
keyhr: execute keyh,return
keyir: execute keyi,return
keyjr: execute keyj,return
keykr: execute keyk,return
keylr: execute keyl,return
keymr: execute keym,return
keynr: execute keyn,return
keyor: execute keyo,return
keypr: execute keyp,return
keyqr: execute keyq,return
keyrr: execute keyr,return
keysr: execute keys,return
keytr: execute keyt,return
keyur: execute keyu,return
keyvr: execute keyv,return
keywr: execute keyw,return
keyxr: execute keyx,return
keyyr: execute keyy,return
keyzr: execute keyz,return
keynsr: execute keyns,return

;       Mouse help

mousehlp: popup 2,1
        text "╔════════════════ MOUSE  HELP ══════════════════╗"
        text "║                                               ║"
        text "║ Left button  - Displays Main menu             ║"
        text "║ Right button - Displays Mouse Help menu       ║"
        text "║ Both buttons - Cancels action-in-progress     ║"
        text "║                                               ║"
        text "║ Moving the mouse up,down,left, or right will  ║"
        text "║ cause the cursor to move in that direction.   ║"
        text "║                                               ║"
        text "╚═══════════════════════════════════════════════╝"
        select 1,19,11
        pend
;
;               --- Key Commands ---
shellout: TYPE "EXIT"
keya:     Type "A"                      ;A
keyb:     type "B"                      ;B
keyc:     Type "C"                      ;C
keyd:     Type "D"                      ;D
keye:     Type "E"                      ;E
Keyf:     Type "F"                      ;F
keyg:     Type "G"                      ;G
Keyh:     Type "H"                      ;H
keyi:     Type "I"                      ;I
keyj:     type "J"                      ;J
keyk:     Type "K"                      ;K
keyl:     type "L"                      ;L
keym:     Type "M"                      ;M
keyn:     Type "N"                      ;N
keyo:     Type "O"                      ;O
keyp:     type "P"                      ;P
keyq:     Type "Q"                      ;Q
keyr:     Type "R"                      ;R
keys:     Type "S"                      ;S
keyt:     Type "T"                      ;T
keyu:     Type "U"                      ;U
keyv:     type "V"                      ;V
keyw:     Type "W"                      ;W
keyx:     type "X"                      ;X
keyy:     type "Y"                      ;Y
keyz:     type "Z"                      ;Z
keyns:    type "NS"                     ;NS
keyesc: type 27                         ;Escape
keyspc: type " "                        ;Space
keyaltc: type 0,46
keydial: type 0,32,13
keyaltf: Type 0,33
keyalth: type 0,35
keyaltp: type 0,25
keyaltq: type 0,16
keyaltr: type 0,19
keyaltw: type 0,17
keyaltx: type 0,45
shfttab: type 0,15
keyalta: type 0,30
keyaltj: type 0,36
keyaltl: type 0,38
keyalto: type 0,24
keyaltv: type 0,47
keyalty: type 0,21
keyaltb: type 0,48
keyalte: type 0,18
keyaltg: type 0,34
keyalti: type 0,23
keyaltm: type 0,50
keyalts: type 0,31
keyaltt: type 0,20
keyaltz: type 0,44
keyctnd: type 0,117
keyctpt: type 0,114

NOTHING:        NOTHING

RETURN:        TYPE 13                 ;Return
PGUP:          TYPE 0,73
PGDN:          TYPE 0,81
LEFT:          TYPE 0,75
RIGHT:         TYPE 0,77
UP:            TYPE 0,72
DOWN:          TYPE 0,80
keycthm: type 0,119